Form2 Preview XXXXX XXXXX XXXXX XXXXX XXXXX XXXXX XXXXX XXXXX Form2% Picture1 DestinationPic Form_Resize WallPaper Form_Unload Cancel3 Form_Load Form1q Heighta Left) Width4 Form_DblClickd Check1= Value! File1DClick List1DClick Form2g WindowState Loading# False Picture1_Click Draggingo Picture1_MouseDown Button Shift Picture1 Picture1_MouseMove Picture1_MouseUp StretchBltB nWidth nHeight hSrcDC{ nSrcWidth nSrcHeight dwRop? DragPictureTo hDestDCW BitBltR SourcePicQ Visible SourcePic_Click DestinationPic DestinationPic_MouseDown MouseDownn DestinationPic_MouseMove DestinationPic_MouseUp: AutoRedraw[ Picture imageI NonPersistentHDCH PersistentHDC Check2 Tiling? gDragging floadpSub ShowAllFiles TileChecked ScaleWidth ScaleHeight scalemode Moving gDrawingm Timer1 Enabled ScaleWith' AutoResize AutoSize Metafile Ratio InPic1 ExitSub MousePointer Form_MouseMove DottedLine PositionOutline DestinationPic_MouseDown DestinationPic_MouseMove If Y > ScaleHeight + 2 Then Y = ScaleHeight + 2 Carole Rogers r DestinationPic_MouseUp stop moving this up it belongs after the mouse_move call Call DestinationPic_MouseMove(Button, Shift, X, Y) Call DestinationPic_MouseMove(Button, Shift, X, Y) Call DestinationPic_MouseMove(Button, Shift, X, Y) Form_DblClick Form_Load Top = Form1.Top= Form_MouseMove Form_Resize Command1.Width = ScaleWidth Form2.Visible = True minimized Form_Unload Picture1_MouseDown Picture1_MouseMove Call DestinationPic_MouseMove(Button, Shift, (Picture1.Left) + X, (Picture1.Top) + Y). Picture1_MouseUp Call DestinationPic_MouseUp(Button, Shift, Picture1.Left + X, Picture1.Top + Y)c